home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / cartoons.sda / DEMO BOOT (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  939b  |  32 lines
  1. 1 POKE53280,11:POKE53281,0:PRINT"[144][147]"
  2. 2 PRINT"[158][212]HIS DEMO BROUGHT TO YOU BY":PRINT:POKE1140,0
  3. 3 PRINT"        [210]ICHARD [210].":PRINT
  4. 5 PRINT"        [198]EB 6 1990":PRINT:PRINT
  5. 6 PRINT"   [198]1[146] TO SPEED UP.    [198]7[146] TO SLOW DOWN"
  6. 7 A$="TV PACK":GOSUB10
  7. 8 A$="CARTOON PACK":GOSUB10
  8. 9 SYS51523
  9. 10 FORT=1024TO1139:READA:POKET,A:NEXT
  10. 15 POKE1034,LEN(A$)
  11. 20 FORT=1TOLEN(A$)
  12. 30 D$=MID$(A$,T,1):DX=ASC(D$)
  13. 40 POKE1140+T,DX:NEXT:RESTORE
  14. 50 SYS1024:RETURN
  15. 1000 DATA169,008,162,008,160,000,032
  16. 1010 DATA186,255,169,004,162,117,160
  17. 1020 DATA004,032,189,255,032,192,255
  18. 1030 DATA162,008,032,198,255,032,228
  19. 1040 DATA255,133,251,032,228,255,133
  20. 1050 DATA252,032,183,255,208,051,032
  21. 1060 DATA228,255,201,254,240,013,160
  22. 1070 DATA000,145,251,230,251,208,002
  23. 1080 DATA230,252,024,144,231,032,228
  24. 1090 DATA255,072,032,228,255,170,168
  25. 1100 DATA104,136,145,251,136,192,255
  26. 1110 DATA208,249,138,024,101,251,133
  27. 1120 DATA251,144,002,230,252,024,144
  28. 1130 DATA200,032,204,255,169,008,032
  29. 1140 DATA195,255,173,116,004,201,001
  30. 1150 DATA240,006,169,001,141,116,004
  31. 1160 DATA096,076,067,201
  32.